answer "The CREATOR of “" & appname & "” is" && it & "."
else
answer it with "Sorry"
end if
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=108 top=54 right=76 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SetCreator
----- HyperTalk script -----
on mouseUp
answer file "Choose a file to modify:"
put it into appname
if appname is "" then exit mouseup
ask "Change Creator to what?" with getcreator(appname)
if it = "" then exit mouseup
setcreator appname,it
if the result ≠ "" then answer the result with "Sorry"
end mouseUp
-- part 5 (field)
-- low flags: 05
-- high flags: 2007
-- rect: left=1 top=82 right=309 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
-- part contents for card part 5
----- text -----
GetCreator takes one parameter, the pathname of the file you want to examine, and it returns the four character Creator of the file. SetCreator takes two parameters, the pathname of the file and the four character Creator to use. Click on and/or examine the scripts of the buttons above to see how it works!
A small shareware fee (per external) of $5 is requested if you use these externals in any “in-house”, shareware or freeware products. The registration fee (per external) for development and prototyping of a future commercial product is $10. The registration fee (per external) for unlimited commercial use in a SINGLE “for sale” product is $15. The fee (per external) for unlimited commercial use with MULTIPLE products is $25. These are lifetime registrations. You are entitled to all future shareware updates without further cost.
If you have comments, questions, or suggestions, you can contact me in any of the following ways:
